Shareware Grab Bag/Shareware Grab Bag.iso/050/bix02.arc/WORD.PAS

Pascal/Delphi Source File | 1986-08-04 | 803b | 18 lines

Procedure FillWord ( VAR mem; Count,Val : integer);
  Begin Inline($C4/$BE/mem/       {les   di,mem[bp]    }
               $8B/$46/<val/      {mov   ax,val[bp]    }
               $8B/$4E/<count/    {mov   cx,count[bp]  }
               $FC/               {cld  ;forward dir   }
               $F3/$AB);          {rep   stosw         }
  End;

Procedure MoveWord(VAR Source,Dest;Count:integer);
Begin Inline($1E/              {push  ds             }
             $C4/$7E/<dest/    {les   di,dest[bp]    }
             $C5/$76/<source/  {lds   si,source[bp]  }
             $8B/$4E/<count/   {mov   cx,count[bp]   }
             $FC/              {cld                  }
             $F3/$A5/          {rep movsw            }
             $1F);             {pop ds               }
end;